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; EXCEPTION MEESAGE FORMAT AND PRINT ROUTINE 

Modified by: 


v02-003 LMK0001 Len Kawell 3-Sep-1981 
Change PSECT names to re-order system image. 


v02-002 LJK0033 Lawrence J. Kenah 2-Jun-1981 
Add dump of top of stack to output display 
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ATIONS BSE 198¢ 05:41:56 FevevenclexcepYmsc mar:1 P28 (Fy, vC 
? : SUBTITLE DECLARATIONS 
43 ; MACRO LIBRARY CALLS 
45 ° 
4 SCHFDEF ;DEF INE CONDITION HANDLING ARGLST OFFSETS 
4 $F ABDEF ;DEFINE FAB OFFSETS 
0 c SRABDEF ;DEFINE RAB OFFSETS 
0; 
1 : LOCAL SYMBOLS 
09 § ; ARGUMENT LIST OFFSET DEFINITIONS 
000 ae 
00000004 000 MESSAGE=4 sADDRESS OF ASCIZ STRING 
00000008 090 3§ SIGNAL=8 ;ADDRESS OF SIGNAL ARGUMENT LIST 
ae 
00 60 ; OUTPUT FORMAT BUFFER SIZE 
0900 g 
00000050 0000 8g BUF S17=80 3 
0000 S$; | 
000 66 > LOCAL DATA | 
$00 
0000000 4 -PSECT YEXEPAGED2, BYTE 
6C ¢ 65 70 6F 72 70 6D 49 0 3 0000 OQ HEADNG: .ASCIZ / Improperly handled condition, / ; 
oe OF 68 60 or $F BF BF B5 OL BB a ete 
75 64 20 72 é $f § 69 67 65 $ $5 ° . 71 REGMSG: .ASCIZ / Register dump/ ; 
20 31 52 $0 0 99 $8 3D 20 5 030 72 REGDMP: .ASCII / RO = /<O>/ R1 = /<0>/ =R2 = /<0>/ RB = /<0><128> ; 
20 00 20 3D ; ‘ ; 0 ° D 06 
20 35 52 ¢ 0 00 D 4 5 73 ASCII / R4 = /<0>/ RS = /<0>/ Rb = /<O0>/ = R7 = /<0><128> ; 
20 00 20 50 £0 36 4 9 D 2 
20 39 38 4 0 D ; 3 70 74 ASCII / RB = /<0>/ RY = /<0>/ R1I0= /<0>/ R1I1= /<0><128> ; 
20 00 20 3D 30 31 : y 4 ss 
$0 78 $6 9° G 3 29 41 09 ; 75 eASCII / AP = /<O0>/ FP = /<0>/ SP = /<O>/ PC = /<0><128> ; 
S30 85 60 go CU a0 32 br 
0 00 8 D4C 5 i 16 ASCII / PSL= /<0><128> ; 
ns . C : Sect BY ace : ‘ . 
00 20 09 09 09 09 09 ¢ 7 ~KSCIZ / / 
75 67 72 $i $8 6C 61 of $f 69 ; 9 C 80 SIGMSG: .ASCIZ / Signal arguments Stack contents/ 
20 20 6 20 20 30 o $ OF § 3 OCF 
6E 65 74 6E 6F 0 68 63 8 i 8 
00 $3 Uy) $8 $9 20 65 6D 8 GE 68 EA H SIGNAM: .ASCIZ / Name = / ;SIGNAL NAME 
00 20 3D 20 72 65 62 6D 75 4E 09 F5 2 SIGNUM: .ASCIZ / Number = / ;SIGNAL ARGUMENTS NUMBER 
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v04-000 EXCEPTION MESSAGE FORMAT AND PRINT ROUTI "er SEP=1984 90:07 86 SYS.SRCJEXCEPTMSG.MAR; 1 = VC 
4 ; .SBTTL EXCEPTION MESSAGE FORMAT AND PRINT ROUTINE 
§ : EXESEXCMSG = EXCEPTION MESSAGE FORMAT AND PRINT ROUTINE 
1 : : THIS ROUTINE IS CALLED WHEN NO EXCEPTION HANDLER CAN BE FOUND OR ALL HANDLERS 
1 : RESIGNAL. ITS FUNCTION IS TO PRINT A SUMMARY OF THE CURRENT PROCESS STATE AND 
30 > WHY THE PROCESS RECEIVED THE EXCEPTION, 
! 5 : INPUTS: 
1 9% : MESSAGE(AP) = ADDRESS OF MESSAGE SUFFIX STRING. 
95 ; SIGNAL(AP) = ADDRESS OF SIGNAL ARGUMENT LIST. 
! 3 3; OUTPUTS: 
1 6 99 ; THE HEADING MESSAGE 1s FORMATTED BY ADDING THE SPECIFIED SUFFIX AND 
100 100: 1S THEN WRITTEN TO ‘SYSSERROR'. THIS INFORMATION IS FOLLOWED BY A DUMP 
19 101 : OF THE SIGNAL ARGUMENTS AND OR ENERAL REGISTERS. WHILE THE OUTPUT IS 
1 1 : : BEING WRITTEN TO 'SYSSERROR® IT IS ALSO WRITTEN TO 'SYSS$OUTPUT’ IF 
100 103: THEY ARE DIFFERENT FILES. 
133 18s 
FC 0100 1 6 .ENTRY EXESEXCMSG, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
FEFB’ 30 108 10 BSBW EXESOPEN MSG 7OPEN MESSAGE FILES AND INITIALIZE RAB'S 
SE BO AE i 19 108 MOVAB eBURSIZ<SP). SP SALLOCATE SPACE FOR OUTPUT BUFFER 
7 SE dO 0109 109 MOVL  SP,R7 :SAVE ADDRESS OF OUTPUT BUFFER 
SE BC AE 9 10¢ 110 MOVAB =17#4(SP),S TALLOCATE REGISTER AAREA 
56 08 AC «(DO «(0110111 MOVL SIGNALTAPS: RG [GET ADDRESS OF SIGNAL ARGUMENTS 
50 SE DO 0114 118 MOVL SP, RO [SET ADDRESS OF REGISTER SAVE AAREA 
51 08 A6 DO 0117. 11 MOVL  CHFSL -NCHARGLST Rs), :GET ADDRESS OF MECHANISM 
80 OC Al 7D 0118 114 mova cHFSL L“MCH_SAVRO(R1) RRoDs : INSERT ORIGINAL RO AND ie 
51 14 AD QE O11F 115 MOVAB OCEPT RI :GET ADDR ESS OF SAVED REGISTERS 
52. OA 00 0123 116 MOVL  #10,R2 [SET REGISTER COUNT 
81 DO (01 : 117 10$: OVL  (R1$+,<RO)+ SINSERT ORIGINAL REGISTER 
FA 52 «FS «(O01 118 SOBGTR R2,10$ TANY MORE REGISTERS TO SAV 
80 AD 7D Olec 11 MOV = BFP), (RO)+ TINSERT ARGUMENT AND FRAME POINTERS 
6 0446 00 0130 120 MOVL  CHFSL SIGARGLST (RG) ,R6 [GET ADDRESS OF SIGNAL AR 
55 66 DO 0134 121 MOVL  (R6),R [GET NUMBER OF SIGNAL ARGUMENTS 
58 04 06465 DE 0137 1 é MOVAL 4 (R65 ERS].RG TINSERT STACK POINTER ADDRESS 
80 38 D0 O13c (1 MOVL  R8,(RO)+ SUSE RB AS STACK LIST TRAVERSAL REGISTER 
BO FC A645 DO O13F 12% MOVL chino) tR5) (RO)+ i INSERT SAVED PROGRAM COUNT 
0 6645 DO 0144 125 MOVL (RG) R5) ;INSERT SAVED PROCESSOR OT ATUS 
67 9E 0148 1 é MOVAB (R7), RABSL_RBF (R10) [SET ADDRESS OF RECORD BUFFER 
8 AB 67 ; 4¢ (1 MOVAB (R7) RABSL_RBF (R11) ?SET ADDRESS OF RECORD BUFFER 
Q0A6 150 1 8 BSBW PUT OUTPUT RECORD 
51 FEA cr 3 1 MOVAB HEADNG,R1 [GET ADDRESS OF INITIAL HEADING 
0085 158 130 SBW 3S sNSEERT SINSERT HEADING IN OUTPUT BUFFER 
51 04 AC 138 131 VL MESSAGE(AP),R1 [GET ADDRESS OF MESSAGE SUFFIX 
009 15F 1 é BSBW Ss«éPUTI TINSERT SUFFIX IN OUTPUT BUFFER AND PRINT 
FFSD CF 168 1 MOVAB SIGMSG,R1 [GET ADDRESS OF SIGNAL ARGUMENT MESSAGE 
00 167 134 SBWs«éPUTI SINSERT MESSAGE IN OUTPUT BUFFER AND PRINT 
55 $6 1 (C3 O16A 135 SUBL3 #1, (R6) RS [CALCULATE NUMBER OF SIGNAL A 
E ‘ 1g 1 6 SUBL3 #8. R5,-(S SSTORE DIFFERENCE ON STACK 
2 1 1 BLEGU 15$ SBRANCH IF SIGNAL ARRAY SMALLER 
55 174 «1 : MOVL #8,R5 [STACK DISPLAY IS SMALLER 
FF7A CF . 177. 139 .15$:  MOVAB  SIGNUM,R1 [GET ADDRESS OF ARGUMENT NUMBER PREFIX 
17¢ =: 140 BSBW = PUTC_BOTH ;WRITE TWO COLUMN ENTRIES 
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ROUT 
SIGNAM,R1 


PUTC_BOTH 
SIGCTL,R1 
TC_BOTH 


CONVERT _R6 
0$ 


PUT 
R4, 308 
Puf 
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;GET ADDRESS OF SIGNAL NAME PREFIX 

gWRITE TWO COLUMN ENTRIES 

:GET ADDRESS OF INDENT MESSAGE 

sWRITE TWO COLUMN ENTRIES 

yANY MORE TO CONVERT? 

;RETRIEVE DIFFERENCE 

3NO DIFFERENCE. GO DUMP REGISTERS 

7SIGNAL ARRAY LARGER. DUMP BALANCE. 

;DUMP BALANCE OF STACK (UP TO 10 LONGWORDS) 

; INSERTED EXTENDED INDENT INTO OUTPUT RECORD 

OUTPUT THIS STACK LONGWORD 

360 GET NEXT ONE 

zALL DONE. DUMP REGISTERS 

DUMP BALANCE OF SIGNAL ARRAY 

s INSERTED INDENT INTO OUTPUT RECORD 

OUTPUT THIS SIGNAL ARRAY ELEMENT 

:GO0 GET NEXT ONE 


OUTPUT BLANK LINE 
GET ADDRESS OF REGIS 
: INSERT MESSAGF IN PUT BUFFER AND PRINT 
SET NUMBER OF LIN 
SET ADDRESS OF ae 


Ag INT 
SET ADDRESS OF R ER 


4 MESSAGE 


RIN 

DUMP CONTROL STRING 
SAVE AREA 

GET NEXT BYTE FROM CONTROL STRING 

:1F LEQ CONTROL BYTE 

PUT BYTE IN OUTPUT BUFFER 


:1F LSS_END OF LINE 
;CONVERT NEXT REGISTER VALUE 


[OUTPUT RECORD 


s;ANY MORE LINES TO PRINT? 
;OUTPUT RECORD 
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. SUBTITLE UTILITY SUBROUTINES 
: INSERT TEXT IN OUTPUT BUFFER 


P MES 
y OUT 
1 17 
166 | 6 
ig 
160 1 
160 184  ENABL 8 
50 81 9A O160 185 INSERT: MOVZBL (R1)+,RO :GET NEXT BYTE FROM TEXT STRING 
3 163 6 BEQL 108 F EQL END OF TEXT STRING 
g 10 0165 «1 BSBB SséPUTB ‘pUT BYTE IN OUTPUT BUFFER 
= IE? : BRB INSERT : 
169 190; 
IE 132 ; PUT BYTE IN OUTPUT BUFFER 
169 198° 
22 AA BS O1E9 194 PUTB: TSTW RABSW_RSZ(R10) ;ANY ROOM LEFT IN BUFFER? 
06 1 1EC 9195 BEQL F EQL NO 
NT N OF BYTES REMAINING 
22 AA B7 OEE 19 DECW  RABS$W_RSZ(R10) <DECREMENT NUMBER OF BYTES REMAINI 
»(R7)+ N YTE IN UT BUF 
87 50 90 O1F1 19 MOVB _—RO, (R7) SINSERT BYTE IN OUTPUT BUFFER 
05 O1F4 198 108: RSB : 
IF 199 .DSABL LSB 
1F 13 
IF : : INSERT TEXT IN OUTPUT BUFFER AND OUTPUT RECORD AND BLANK RECORD 
1F 04 ° 
£9 10 3 05 PUTI: ®8SBB INSERT sINSERT TEXT IN BUFFER 
0 10 IF? 06 BSBB.Ss«éPUT SOUTPUT RECORD 
179 08 
+ OUTPUT CURREN AN D PARAM 
1F9 09 OUTPUT CURRENT RECORD AND RESET RECORD PARAMETERS 
Fo (511° 
50 57 2B AA C3 O01F9 1 PUT SUBL3 RABSL RBF(R10),R7,RO | ;CALCULATE LENGTH OF OUTPUT RECORD 
32 AA 50 B80 IPE 1 MOVW 0,RABSW_RSZ(R10) [SET LENGTH OF OUTPUT RECORD 
aB 50 = «BO (020 14 MOVW RO. RABSW~RSZ(R11) :SET LENGTH OF OUTPUT RECORD 
06 15 SPUT  RAB=(R10 [OUTPUT RECORD 
57 28 AA 00 F 16 VL. RABSL_RBF(R10),R7 TRESET OUTPUT RECORD POINTER 
22 AA «50 BF C«OSB 13 1 MOVZBW #BUFSTZ,RABSW_RSZ(R10) :RESET OUTPUT RECORD BUFFER SIZE 
02 AB (02 AA. Bl COO 18 CMPW = RABSW_ISI(R107,RABS$W_ISI(R11) ;ERROR AND OUTPUT FILES EQUIVALENCT? 
09 13 021D 21 BEQL 108 s1F EQL YES 
1F 0 SPUT — RAB=(R11) TOUTPUT RECORD 
05 : t 10$:  RSB : 
9 : 
3 $ + CONVERT HEXDECIMAL VALUE AND OUTPUT RECORD 
9 e 
9 § PUTC_R6: 
12 10 9 8 BSBB CONVERT_R6 :CONVERT HEXADECIMAL VALUE 
a b : BRB PUT [OUTPUT RECORD 
D ? PUTC_SOTH: 
ay 10 D : BSBB Ss s INSERT INDENT PREFIX IN OUTPUT BUFFER 
; F SBW 6- CONVERT_R6 [CONVERT NUMBER AND PUT INTO RECORD 
51 FEB2 CF ; ¢ 4 MOVAB SIGCTL,R1 tADD HORIZONTAL SPA CER 
A? 1 5 BSBB —S INSERT [ADD SPACER TO OUTPUT RECORD 


10 
- EXCEPTION MESSAGE FORMAT AND PRINT ROU 16-SEP-1984 AX/VMS Macro V04-00 Pa 
UTECTTY SOOROUT INES oT ra ee ca Te ve Of, 
| § PUTC_RB: 
07 19 BSBB = CONVERT_R8 s CONVERT HEXDECIMAL VALUE 
BC 8 BRB PUT ‘OUTPUT RECO 
D 40 ; 
4 48 : CONVERT NUMBER BASE 16 
> i aa 
p 44 ENABLE LOCAL_BLOCK 
D 4g CONVERT_R6: ;LIST TRAVERSED BY 
51 8 00 4 MOVL  (R6)+,R1 :GET NUMBER TO BE CONVERTED 
4 48 BRB 5$ :JOIN COMMON CODE 
4 50 CONVERT_R8: ;LIST TRAVERSED BY RB 
1 88 »D 4 31 “MOVL (RB) +, R1 'GET NUMBER TO BE CONVERTED 
1¢ «(OD 4 : 5$: MOVL :SET STARTING BIT NUMBER 
50 (51 5 F 0248 253 10$ EXTZV R2,#4,R1,RO :GET NEXT HEXDECIMAL DIGIT 
50 00000000'EF4 A 4p 54 MOVZBL EXESAB_HEXTABCRO],RO CONVERT HEXDIGIT TO ASCII 
92 10 025 it) BSBBSséPUT :PUT BYTE IN OUTPUT BUFFER 
FFEA S52 FC 8F 00 9D 0 57 36 ACBB Ss #0, #4, R2, 108 SANY MORE DIGITS TO CONVERT? 
05 3E 3 RSB : 
§ SF 38 DISABLE LOCAL_BLOCK 
025F 260 
O25F 261 END 


EXCEPTMSG 
Symbol table 


BUF SIZ 

CHF SL _MCHARGLST 
CHFSL-MCH_SAVRO 
AS ge GARGLST 


Command proces 


ommand processing 


Synbol table sort 


~ abe table output 
Prect synopsis output 
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“SEP=1 SYS.SR aT: PXCEPY 
1 


geenreeee 


f 
4 a 
geeeeeee 
00000100 RG 
00 R 
0090008 
= 00000004 
BB 1FO R 
OOO1ED R 
00 R 
obo Q 
0 OR 
OOOOTFS R 
= 29009 
= 
= 900000 
900 3 R 0 
800 1R 0 
00 (83 R 
4 0B8 R 
0 Boers Be 
OO000CS R 0 
= 00000008 
OOOOEA R 0 
OOOOOFS R 
geeaerenre Gx 
peer woes emo o woes + 
! Psect synopsis ! 
Allocation PSECT No. Attributes 
44444 -) 00 ¢ OQ.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BOO OEE 09°} 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
0000 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 


Page faults CPU Time 


:01. 
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EXCEPTMSG 
VAX=11 Macro Run Statistics 


Cross-reference output :00:00. :00:00.0 

Assembler run totals. 396 88: 80:05.95 88;00:55:09 

The yorking ef Limit was 1950 pages. 

21155 bytes (42 pages) of d ‘er memory were used to buffer the intermediate c Eger. 

There were 20 pages of symbol table space allocated to hold 339 non-local ane 12 local symbols. 


¢ source lines were read in Pass 1, producing 16 object records in Pass 
pages of virtual memory were used to define 11 macros. 
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! Macro Library statistics ! 


te eee nee eeecee Samana me ame 


Macro Library name Macros defined 


Siiittn? $ 44 “OBJILIB. MLB; 1 7 
5SSDUA SYSLIBISTARLET. MLB; 2 
Tors (all Libraries) 8 


427 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:EXCEPTMSG/OBJ=OBJS:EXCEPTMSG MSRC$:EXCEPTMSG/UPDATE=(ENHS:EXCEPTMSG) +EXECML$/LI8 
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